home *** CD-ROM | disk | FTP | other *** search
/ Acorn Risc Technologies StrongARM CD-ROM / Acorn Risc Technologies StrongARM CD-ROM.iso / software / apdl / _order / order (.txt) < prev    next >
Encoding:
RISC OS BBC BASIC V Source  |  1996-07-20  |  23.7 KB  |  1,037 lines
  1.  --> Order
  2.  This program and all documentation 
  3.  David Holden 1994
  4. A_%=207:
  5. 262343,D_%,E_%
  6. !E_%=G_%
  7. 262341,,E_%
  8. 262342,,E_%
  9. 8:K_%=E_%!4:L_%=E_%!24:
  10. 262364,L_%:
  11. &18F:
  12. !E_%=N_%
  13. 4:K_%=10
  14. 14:K_%=10
  15. :K_%-=1
  16. O_(N_%,K_%)
  17. &18E:
  18. !E_%=N_%
  19. K_%=10
  20. K_%=4
  21. K_%+=1
  22. O_(N_%,K_%)
  23. &1AF:
  24. !E_%=N_%
  25. O_(N_%,4)
  26. &1AE:
  27. !E_%=N_%
  28. O_(N_%,10)
  29. 262342,,E_%
  30. 17,18:
  31. E_%!16
  32. 2:R_%=
  33. S_%=&fff
  34. U_(&334,V_%,W_%)
  35. E_%!24=X_%
  36. E_%!40
  37. &335:
  38. &336:
  39. 262351,,E_%+&C0:a_%=E_%!&C8:b_%=E_%!&C4:
  40. c_%=d_%
  41. E_%!4=-1
  42. e_(G_%)
  43. 2:!E_%=f_%:
  44. 262342,,E_%:
  45. e_(N_%):
  46. O_(N_%,4)
  47. 3:!(d_%+28+(3*24))=!(d_%+28+(3*24))
  48. 0:!E_%=f_%:
  49. 262342,,E_%:
  50. e_(N_%):
  51. O_(N_%,4)
  52. h_%<=i_%
  53. j_%=0
  54. k_%=0
  55. l_(1,0):
  56. a_%=1
  57. 262356,,c_%,o_%,p_%
  58. 262351,,E_%+&C0:a_%=E_%!&C8:b_%=E_%!&C4:o_%=E_%!&C0:q_%=E_%!12:K_%=E_%!16:
  59. K_%=X_%
  60. 2:o_%-=140:p_%=340:c_%=d_%:
  61. 262356,,c_%,o_%,p_%
  62. e_(r_%)
  63. 2:o_%-=80:p_%=b_%+40:c_%=s_%:
  64. 262356,,c_%,o_%,p_%
  65. K_%>=t_%
  66. [6!E_%=u_%!((K_%-t_%)*4):
  67. 262347,,E_%:
  68. 262341,,E_%
  69. K_%>6
  70. K_%<11
  71. v_(K_%-7)
  72. E_%!8=4
  73. K_%=0
  74. S_%=&FFF:
  75. x_(w_%,0)
  76. E_%!8=4
  77. K_%=0
  78. S_%=&334:
  79. x_(y_%,0)
  80. a_%<>4
  81. 11:!E_%=N_%:
  82. 262342,,E_%
  83. a_%<>4
  84. h)E_%!200=f_%:
  85. 262342,,E_%+200:
  86. K_%=8
  87. U_(&fff,z_%,__%)
  88. a_%<>4
  89. m5I%=0:
  90. u_%!I%>=0
  91. u_%!I%<>q_%:I%+=4:
  92. `_%!I%=-1
  93. I%<A`%
  94. p@!E_%=q_%:E_%!4=K_%:
  95. 262350,,E_%:
  96. (E_%!24
  97. (1<<21))=0
  98. :!E_%=q_%:E_%!4=K_%:
  99. 262350,,E_%:D`%=E_%!28:
  100. (E_%!24
  101. 1<<21)=
  102. F`%+=
  103. ($D`%):G`%+=1
  104. F`%-=
  105. ($D`%):G`%-=1
  106. v*E_%!8=1<<21:E_%!12=0:
  107. 262349,,E_%:
  108. v_(i%):!E_%=r_%:E_%!8=0:E_%!12=1<<21:E_%!4=I`%:
  109. 262349,,E_%:E_%!4=J`%:
  110. 262349,,E_%:E_%!4=K`%:
  111. 262349,,E_%:E_%!4=10:
  112. 262349,,E_%:E_%!4=i%+I`%:E_%!8=1<<21:E_%!12=1<<21:
  113. 262349,,E_%:i%=i%*4:L`%=M`%!i%:N`%=O`%!i%
  114. i_%=P`%!i%:
  115. Q`%,R`%:D`%=E_%!28:
  116. S`:E_%!8=1<<21:E_%!12=0:
  117. 262349,,E_%:
  118. ?D`%>57
  119. DR`%=?D`%
  120. &DF:Q`%=0:
  121. T`%?Q`%<>R`%:Q`%+=1:
  122. Q`%>32 I%=
  123. l_(1,1):
  124. U`(V`%!(Q`%*4))
  125. :W`%+=X`%!(Q`%*4):Y`%+=X`%!(Q`%*4):Z`%+=V`%!(Q`%*4):a`%+=1
  126. N`%>0
  127. W`%+=(?D`%-48):Y`%+=(?D`%-48)
  128. 33,10,D`%
  129. ,,c%:Z`%+=c%:a`%+=1
  130. N`%<0
  131. Y`%=0:W`%=0
  132. Q`%,R`%,c`%,d`%:D`%=E_%!28:
  133. S`:E_%!8=1<<21:E_%!12=0:
  134. 262349,,E_%:
  135. ?D`%>57
  136. DR`%=?D`%
  137. &DF:Q`%=0:
  138. T`%?Q`%<>R`%:Q`%+=1:
  139. Q`%>32 I%=
  140. l_(1,1):
  141. e`(V`%!(Q`%*4),X`%!(Q`%*4))
  142. :c`%=?D`%-48:
  143. 33,10,D`%
  144. ,,d`%:
  145. e`(d`%,c`%)
  146. N`%<0
  147. Y`%=0:W`%=0
  148. e`(d`%,c`%):Z`%-=d`%:a`%-=1:W`%-=c`%:
  149. N`%<0
  150. Y`%>=c`% Y`%-=c`%:
  151. U`(d`%):a`%+=1:
  152. N`%<0
  153. Z`%+=d`%:
  154. Y`%>=N`%
  155. Y`%-=N`%
  156. Y`%+=1:W`%+=1:Z`%+=d`%
  157. g`(r_%,I`%)=
  158. :="A"
  159. g`(r_%,J`%)=
  160. :="B"
  161. g`(r_%,K`%)=
  162. :="C"
  163. a$:a$="Info: v"+
  164. (A_%/100)+"/"+
  165. ((h_%+i`%+j`%)
  166. 100)+
  167. k`%>0 a$+=$k`%
  168. ((h_%+i`%+j`%)
  169. 100):
  170. 131153
  171. S%,P%:a$+="/OS-"+
  172. ((l`%
  173. 10)/10):a$+="/"+
  174. (((S%
  175. 1024)*P%)
  176. 1024)+"Mb":
  177. m`%=1 a$+="/800K"
  178. a$+="/1.6Mb"
  179. a$+="/SCSI":
  180. o`%>0 a$+="-"+
  181. (o`%)
  182. a$+="/IDEFS":
  183. q`%>0 a$+="-"+
  184. (q`%)
  185. r`%>0 a$+="/ADFS-"+
  186. (r`%)
  187. p%,e%,s`%,t`%,a$,u`%:p%=z_%:e%=z_%+v`%:s`%=
  188. :t`%=0:!w`%=N_%:w`%!4=14:
  189. 262350,,w`%:
  190. $(w`%!28)>""
  191. @!w`%=N_%:w`%!4=15:
  192. 262350,,w`%:
  193. $(w`%!28)="" I%=
  194. l_(1,12):
  195. F`%>0
  196. g`(r_%,13)=
  197. t`%=x`%
  198. t`%=y`%
  199. F`%>t`% t`%=F`%
  200. (i`%>0
  201. j`%=0)
  202. i`%<t`% i`%=t`%
  203. (j`%>0
  204. i`%=0)
  205. j`%<t`% j`%=t`%
  206. I%=35-(
  207. ($z`%)
  208. 2):$p%=
  209. I%," ")+$z`%:p%=
  210. _`(p%):$p%=
  211. I%," ")+
  212. ($z`%),"-"):p%=
  213. _`(p%):$p%=
  214. h`:p%=
  215. _`(p%):?p%=13:p%+=1:$p%="From:"+
  216. 50," "):p%+=51:!p%=0:
  217. 7,14,p%:
  218. :p%+=1:
  219. ?p%=46:?p%=13:p%+=1:
  220. T!w`%=N_%:w`%!4=I%:
  221. 262350,,w`%:
  222. $(w`%!28)>""
  223. $p%="       "+$(w`%!28):p%=
  224. _`(p%)
  225. :!p%=&0D0D0D:p%+=3:P%=0:W%=u_%!P%:
  226. W%>0:
  227. 262358,W%,w`%,1<<21,1<<21:J%=w`%:
  228. !w`%>=0
  229. P%<A`%
  230. ``%?(P%
  231. !J%>=0:$p%=
  232. Aa(W%,!J%,15,Ba%):p%=
  233. _`(p%):J%+=4:
  234. :?p%=13:p%+=1
  235. a`%<25:
  236. !J%>=0:$p%=
  237. Aa(W%,!J%,15,Ba%):p%=
  238. _`(p%):J%+=4:
  239. a`%<50:
  240. !J%>=0:a$="    "+
  241. Aa(W%,!J%,0,22):J%+=4:
  242. !J%>0
  243. a$+="             "+
  244. Aa(W%,!J%,0,22):J%+=4
  245. $p%=a$:p%=
  246. _`(p%):
  247. !J%>=0:a$=
  248. Aa(W%,!J%,0,18):J%+=4:
  249. !J%>0
  250. a$+="       "+
  251. Aa(W%,!J%,0,18):J%+=4
  252. !J%>0
  253. a$+="       "+
  254. Aa(W%,!J%,0,18):J%+=4
  255. $p%=a$:p%=
  256. _`(p%):
  257. :a$=$(Ca%!P%):
  258. a$,5)="Indiv"
  259. Ta$="Individual":?p%=13:p%+=1:$p%="  ---- "+a$+" ----":
  260. g`(r_%,13)=
  261. $p%+=" (HD)"
  262. _`(p%):s`%=
  263. :?p%=13:p%+=1:$p%="  ---- "+a$+" ----":
  264. g`(r_%,13)=
  265. $p%+=" (HD)"
  266. _`(p%)
  267. !J%>=0:a$=
  268. Da(W%,!J%):J%+=4:
  269. !J%>0
  270. Da(W%,!J%):J%+=4
  271. !J%>0
  272. Da(W%,!J%):J%+=4
  273. !J%>0
  274. Da(W%,!J%):J%+=4
  275. &$p%=a$:p%=
  276. _`(p%):p%-=3:p%?-1=13:
  277. :P%+=4:W%=u_%!P%:
  278. j_%>0
  279. ??p%=13:p%+=1:$p%="  ---- PC Files ----":
  280. $p%+="  (HD)"
  281. _`(p%):I%=Fa%:
  282. ?I%<>&FF:
  283. ?I%>127
  284. ?I%<255:I%+=30:
  285. ?I%<128 $p%=$I%:I%+=30
  286. ?I%>127
  287. ?I%<255:I%+=30:
  288. ?I%<128 $p%=$p%+"        "+$I%:I%+=30
  289. _`(p%):
  290. k_%>0
  291. #@?p%=13:p%+=1:$p%="  ---- GIF Files ----":
  292. $p%+="  (HD)"
  293. %Sp%=
  294. _`(p%):I%=Ha%:
  295. ?I%<>&FF:
  296. ?I%>127
  297. ?I%<255:I%+=18:
  298. ?I%<128 $p%=$I%:I%+=18
  299. ?I%>127
  300. ?I%<255:I%+=18:
  301. ?I%<128 $p%=$p%+"        "+$I%:I%+=18
  302. ?I%>127
  303. ?I%<255:I%+=18:
  304. ?I%<128 $p%=$p%+"        "+$I%:I%+=18
  305. _`(p%):
  306. :!p%=&0D0D0D0D:
  307. a`%+(j_%
  308. 2)+(k_%
  309. 3)<80
  310. p%+=3
  311. p%+=1
  312. 15," ")+"Number of items   "+
  313. Ia(a`%,10)+
  314. Ja(h_%-t`%,10):p%=
  315. _`(p%):$p%=
  316. 15," ")+"Bonus discs awarded"+
  317. Ia((W`%-Y`%)
  318. N`%,9):p%=
  319. _`(p%):$p%=
  320. 15," ")+"Individual files  "+
  321. Ia(G`%,10)+
  322. Ja(t`%,10):p%=
  323. _`(p%)
  324. j_%>0 $p%=
  325. 15," ")+"P.C. files        "+
  326. Ia(j_%,10)+
  327. Ja(i`%,10):p%=
  328. _`(p%)
  329. k_%>0 $p%=
  330. 15," ")+"GIF pictures      "+
  331. Ia(k_%,10)+
  332. Ja(j`%,10):p%=
  333. _`(p%)
  334. 46," ")+"---------":p%=
  335. _`(p%):$p%=
  336. 19," ")+"Total goods             "+
  337. Ja(h_%+i`%+j`%,10):p%=
  338. _`(p%):$p%=
  339. 46," ")+"---------":p%=
  340. _`(p%):!w`%=N_%:w`%!4=14:
  341. 262350,,w`%:a$=$w`%!28:
  342. a$>""
  343. >5!p%=&0D0D0D0D:
  344. a`%+(j_%
  345. 2)+(k_%
  346. 2)<80
  347. p%+=2
  348. p%+=1
  349. ?x$p%="Please debit Credit/Debit card : "+a$:!w`%=N_%:w`%!4=15:
  350. 262350,,w`%:$p%+=(" : Expires "+$(w`%!28)):p%=
  351. _`(p%)
  352. :!p%=&0D0D0D0D:
  353. a`%+(j_%
  354. 2)+(k_%
  355. 2)<80
  356. p%+=3
  357. p%+=1
  358. 9:!w`%=N_%:w`%!4=I%:
  359. 262350,,w`%:$p%="    "+$w`%!28:p%=
  360. _`(p%):
  361. :?p%=13:p%+=1:__%=p%:
  362. I%=z_%
  363. ?I%=13
  364. ?I%=10
  365. Da(w%,i%):E_%!200=w%:E_%!204=i%:
  366. 262350,,E_%+200:i%=E_%!228:
  367. ?i%>31:
  368. ?i%=160 ?i%=32
  369. R$i%+=1:
  370. :?i%=13:=$(E_%!228)+"   "
  371. Ia(n%,l%):
  372. a$:a$=
  373. l%," ")+
  374. (n%):=
  375. a$,l%)
  376. Ja(c%,l%):
  377. t%,f%:
  378. c%=0:=
  379. l%," ")
  380. $(Ka%+100)=
  381. 50," "):$(Ka%+130)=
  382. (c%):f%=Ka%+148:t%=Ka%+100+l%:
  383. :f%-=1:
  384. ?f%=13:?t%=?f%:t%?-1=f%?-1:t%?-2=f%?-2:t%?-3=46:t%-=4:f%-=3:
  385. :?t%=?f%:t%-=1:f%-=1:
  386. ?f%=32:=$(Ka%+100)
  387. 93,13:
  388. 93,10
  389. D`%,Ma%,Na%:
  390. z_:D`%=Pa%:
  391. ?D`%=32:D`%+=1:
  392. :Na%=
  393. ($D`%)-Qa%:
  394. Na%<15 Na%=5000
  395. m%D`%=z_%:Ma%=0:
  396. D`%<__%:
  397. ?D`%=10
  398. La:Ma%+=1:
  399. Ma%>Na%
  400. 93,12:Ma%=0
  401. 93,?D`%
  402. :D`%+=1:
  403. 93,12:!w`%=N_%:w`%!4=14:
  404. 262350,,w`%:
  405. $(w`%!28)>"" I%=
  406. l_(1,13)
  407. _`(p%):
  408. ?p%>31:p%+=1:
  409. :p%+=1:=p%
  410. Aa(w%,i%,o%,l%):
  411. p%,c%,R`%,j%:$Ka%=
  412. 80," "):E_%!200=w%:E_%!204=i%:
  413. 262350,,E_%+200:p%=(E_%!228):c%=Ka%+o%:
  414. ?p%>31
  415. ?p%<>163
  416. ?p%<>36
  417. ?p%<>183:?c%=?p%:c%+=1:p%+=1:
  418. ?p%>31:p%+=1:
  419. :p%+=1:R`%=?p%
  420. "S":$(Ka%+o%+l%-5)=
  421. Ja(Ra%,5)
  422. "R":$(Ka%+o%+l%-5)=
  423. Ja(Sa%,5)
  424. R`%>57
  425. ?j%=0:
  426. R`%<>T`%?j%:j%+=1:
  427. :$(Ka%+o%+l%-5)=
  428. Ja(V`%!(j%*4),5)
  429. :p%+=1:
  430. ?p%=32:
  431. :p%+=1:
  432. ?p%>32:
  433. :p%+=1:
  434. ?p%=32:p%-=1:c%=Ka%+l%+o%:?c%=13:c%?-1=?p%:c%?-2=p%?-1:c%?-3=46:p%-=2:c%-=4:
  435. ?p%>32:?c%=?p%:c%-=1:p%-=1:
  436. :=$Ka%
  437. Ta(r_%,4,a`%):
  438. Ta(r_%,6,Y`%):
  439. Ta(r_%,12,W`%):
  440. t`%,p%:t`%=0:
  441. F`%>0
  442. g`(r_%,13)=
  443. t`%=x`%
  444. t`%=y`%
  445. F`%>t`% t`%=F`%
  446. :h_%=Z`%+t`%:
  447. h_%<L`% h_%=L`%
  448. Cc$=Ua$+
  449. 100)+".":p%=h_%
  450. p%<10
  451. c$+="0"+
  452. cE_%!100=r_%:E_%!104=Va%:
  453. 262350,,E_%+100:$(E_%!128)=c$:E_%!108=0:E_%!112=0:
  454. 262349,,E_%+100:
  455. M_:K_%=E_%!4:
  456. 4,5,6,7,8,9,14:
  457. O_(N_%,K_%+1)
  458. 10,15:
  459. O_(N_%,4)
  460. T_:!Wa%=N_%:
  461. 262342,,Wa%:
  462. K_%=1
  463. Xa(N_%,K_%+3,f_%,K_%):
  464. K_%=9
  465. Xa(N_%,K_%+5,f_%,K_%):
  466. N`%>0
  467. Y`%>=N`%
  468. l_(3,2)=2:
  469. e_(f_%):
  470. h_%<=i_%
  471. j_%=0
  472. j`%=0
  473. l_(1,0):
  474. l_(3,3)=2:
  475. Z`%=i_%:W`%=0:a`%=0:Y`%=0:F`%=0:I%=0:W%=!u_%:
  476. W%>0:
  477. 262358,W%,w`%,1<<21,1<<21:J%=w`%:
  478. !J%>=0:!E_%=W%:E_%!4=!J%:E_%!8=0:E_%!12=1<<21:
  479. 262349,,E_%:J%+=4:
  480. :I%+=4:W%=u_%!I%:
  481. :i`%=0:j_%=0:j`%=0:k_%=0:
  482. s%,r%,Ya%,R`%:
  483. 263872:Z`%=i_%:W`%=0:a`%=0:F`%=0:r%=0:s%=0:G`%=0:Ya%=0:W%=!u_%:
  484. W%>0:
  485. 262358,W%,w`%,1<<21,1<<21:J%=w`%:
  486. Ya%<A`%
  487. !J%>=0:!E_%=W%:E_%!4=!J%:
  488. 262350,,E_%:D`%=E_%!28:
  489. ?D`%>57
  490. pR`%=?D`%
  491. &DF:I%=0:
  492. T`%?I%<>R`%:I%+=1:
  493. :W`%+=X`%!(I%*4):Z`%+=V`%!(I%*4):a`%+=1:
  494. R`%=&53 s%+=1
  495. R`%=&52 r%+=1
  496. :W`%+=?D`%-48:a`%+=1:
  497. 33,10,D`%
  498. ,,C%:Z`%+=C%
  499. :J%+=4:
  500. !J%>=0:!E_%=W%:E_%!4=!J%:
  501. 262350,,E_%:D`%=E_%!28:
  502. E`:F`%+=
  503. ($D`%):J%+=4:G`%+=1:
  504. :Ya%+=4:W%=u_%!Ya%:
  505. N`%>0
  506. Y`%=W`%:
  507. Y`%>N`%
  508. s%-=1:Z`%-=150:Y`%-=(N`%+1):W`%-=1
  509. r%-=1:Z`%-=100:Y`%-=(N`%+1):W`%-=1
  510. Y`%<=N`%
  511. (s%=0
  512. r%=0)
  513. :W`%=0:Y`%=0
  514. 263873:
  515. I=====================================================================
  516. Ta(w%,i%,v%):!Wa%=w%:Wa%!4=i%:
  517. 262350,,Wa%:Wa%!8=0:Wa%!12=0:$(Wa%!28)=
  518. (v%):
  519. 262349,,Wa%:
  520. Za(w%,i%,s$):!Wa%=w%:Wa%!4=i%:
  521. 262350,,Wa%:Wa%!8=0:Wa%!12=0:$(Wa%!28)=s$:*fx 9
  522. 262349,,Wa%:
  523. aa(w%,i%):!Wa%=w%:Wa%!4=i%:
  524. 262350,,Wa%:I%=(Wa%!28):
  525. ?I%>31:I%+=1:
  526. :?I%=13:=$(Wa%!8)
  527. Xa(ba%,ca%,da%,ea%):!Wa%=ba%:Wa%!4=ca%:
  528. 262350,,Wa%:Wa%!40=da%:Wa%!44=ea%:
  529. 262350,,Wa%+40:$(Wa%!68)=$(Wa%!28):
  530. x_(w%,i%):!E_%=w%:
  531. 262347,,E_%:X%=E_%!4-E_%!20:Y%=E_%!16-E_%!24:E_%!4=i%:
  532. 262350,,E_%:
  533. l`%<310
  534. !E_%=w%:E_%!4=5:E_%!8=E_%!8+X%:E_%!12=E_%!12+Y%:E_%!16=E_%!16+X%:E_%!20=E_%!20+Y%:E_%!24=0:E_%!28=0:E_%!32=&7FFFFFFF:E_%!36=&7FFFFFFF:
  535. 262352,,E_%
  536. :!E_%=E_%!8+X%:E_%!4=E_%!12+Y%:E_%!8=E_%!16+X%:E_%!12=E_%!20+Y%:
  537. 271360,%11000101,1,E_%!28,E_%
  538. l`%>300
  539. 271361
  540. h_%<=i_%
  541. j_%=0
  542. k_%=0
  543.  1!Ka%=N_%:Ka%!4=4:
  544. 262350,,Ka%:
  545. $(Ka%!28)=""
  546. ">!Ka%=N_%:Ka%!4=5:
  547. 262350,,Ka%:
  548. $(Ka%!28)="" I%=
  549. l_(1,0):
  550. &FFF:
  551. z_:L%=__%-z_%:E_%!&80=w_%:E_%!&84=3
  552. &334:
  553. fa:E_%!&80=y_%:E_%!&84=3:L%=W_%-w`%
  554. 262350,,E_%+&80:I%=(E_%!&9C):
  555. $(I%),"."):I%+=1:
  556. :ga$=$(I%):
  557. 262351,,E_%:E_%!20=E_%!12:E_%!24=E_%!16:E_%!28=!E_%:E_%!32=E_%!4:E_%!36=L%:E_%!40=S_%:E_%!16=1:$(E_%+44)=ga$:!E_%=(
  558. (ga$)+49)
  559. 3:E_%!12=0
  560. 262375,17,E_%,E_%!20,E_%!24:
  561. U_(ha%,s%,e%):
  562. 7LI%=E_%+44:
  563. ?I%>31:I%+=1:
  564. :?I%=13:
  565. 8,10,$(E_%+44),ha%,,s%,e%:
  566. ha%=&FFF
  567. :>!w`%=N_%:w`%!4=14:
  568. 262350,,w`%:
  569. $(w`%!28)>"" I%=
  570. l_(1,14)
  571. j_%>0 I%=
  572. l_(1,4):
  573. 8,17,E_%+44
  574. ,,,,ia%:
  575. Fa% ia%+&200:
  576. 8,16,E_%+44,Fa%,0:
  577. !Fa%<>100
  578. !Fa%<>200 I%=
  579. l_(1,5):
  580. Fkja%=Fa%:ka%=Fa%:i`%=ja%!4:Ea%=ja%!8:ja%+=16:
  581. 10:ja%=
  582. _`(ja%):
  583. !Fa%<>100:
  584. I%=14
  585. 15:ja%=
  586. _`(ja%):
  587. ja%=(ja%+3)
  588. ?ja%<>&FF:?ka%=?ja%:ja%+=1:ka%+=1:
  589. :?ka%=&FF:j_%=(ka%-Fa%)
  590. 30:I%=
  591. la(1,"File from !PCOrder accepted with "+
  592. (j_%)+" items."):
  593. k_%>0 I%=
  594. l_(1,6):
  595. 8,17,E_%+44
  596. ,,,,ia%:
  597. Ha% ia%+&200:
  598. 8,16,E_%+44,Ha%,0:
  599. !Ha%<>100
  600. !Ha%<>200 I%=
  601. l_(1,7):
  602. Ykja%=Ha%:ka%=Ha%:j`%=ja%!4:Ga%=ja%!8:ja%+=16:
  603. 10:ja%=
  604. _`(ja%):
  605. !Ha%<>100:
  606. I%=14
  607. 15:ja%=
  608. _`(ja%):
  609. ja%=(ja%+3)
  610. ?ja%<>&FF:?ka%=?ja%:ja%+=1:ka%+=1:
  611. :?ka%=&FF:k_%=(ka%-Ha%)
  612. 18:I%=
  613. la(1,"File from !GIForder accepted with "+
  614. (k_%)+" items."):
  615. p%:p%=w`%:!p%=ma%:p%+=4:
  616. 10:E_%!200=N_%:E_%!204=I%:
  617. 262350,,E_%+200:$p%=$(E_%!228):p%=
  618. _`(p%):
  619. :p%=(p%+3)
  620. 10:E_%!200=r_%:E_%!204=I%:
  621. 262350,,E_%+200:!p%=!(E_%+224):p%+=4:
  622. E_%!200=r_%:E_%!204=13:
  623. 262350,,E_%+200:!p%=!(E_%+224):p%+=4:P%=0:W%=u_%!P%:
  624. W%>0:
  625. 262358,W%,p%,1<<21,1<<21:
  626. !p%>=0:p%+=4:
  627. :p%+=4:P%+=4:W%=u_%!P%:
  628. :W_%=p%:
  629. O_(w%,i%):!Wa%=w%:Wa%!4=i%:
  630. 262350,,Wa%:I%=Wa%!28:
  631. ?I%>31:I%+=1:
  632. :?I%=13:
  633. 262354,w%,i%,,,-1,
  634. $(Wa%!28):
  635. g`(w%,i%):!Wa%=w%:Wa%!4=i%:
  636. 262350,,Wa%:
  637. (Wa%!24
  638. 1<<21):=
  639. na(oa%):
  640. 262380,pa%+oa%,-1
  641. e%<(pa%+oa%):=
  642. Ma,ra,sa,ta,m%:ra=1:Ma=2:ta=4:sa=&80:
  643. ua%&200,Pa% 16:m%=ua%:va%=
  644. wa(m%,"Page length",184):m%=
  645. xa("66",4
  646. &80,Pa%):s_%=
  647. wa(m%,"APDL Order",184):m%=
  648. ya("Address",0,0):m%=
  649. ya("Print order",0,0):m%=
  650. ya("Page length",0,va%)
  651. ya("Recalculate",0,0):m%=
  652. ya("Clear select",0,0):m%=
  653. ya("Save order",0,y_%):m%=
  654. ya("Save text",sa,w_%):d_%=
  655. wa(m%,"APDL Order",180):m%=
  656. ya("Info",0,za%):m%=
  657. ya("Help text",0,0):m%=
  658. ya("Address",0,0)
  659. ya("Linefeeds",ra
  660. Ma,0)
  661. ya("Linefeeds",Ma,0)
  662. ya("Quit",sa,0):
  663. wa (a%,_a$,`a%):$a%=_a$:a%!12=&70207:a%!16=`a%:a%!20=40:a%!24=0:m%=a%+28:=a%
  664. ya (Ab$,Bb%,Cb%):!m%=Bb%:m%!4=Cb%:m%!8=&7000001:$(m%+12)=Ab$:=m%+24
  665. xa (Db$,Eb%,Db%):m%!0=Eb%:m%!4=0:m%!8=&7000101:m%!12=Db%:m%!16=-1:m%!20=127:
  666. Db$<>"?"
  667. $Db%=Db$
  668. =m%+24
  669. e_(w%):!E_%=w%:
  670. 262347,,E_%:
  671. 262341,,E_%:
  672. H_:A%=2:B%=E_%:G%=G_%:H%=Fb%:
  673. Hb (Ib$,Jb%):!E_%=Jb%:E_%!4=-8:E_%!8=0:E_%!12=56:E_%!16=96:E_%!20=&2002:$(E_%+24)="!"+Ib$:
  674. 262338,,E_%
  675. I%:=I%
  676. 6,128,252
  677. ,L%,H%:F%=L%+(H%<<8):
  678. 93,0:
  679. 6,128,252
  680. ,L%,H%:
  681. L%+(H%<<8)>=F%:=
  682. l_(3,8)=2:=
  683. C_ (Kb$,Lb%):*FX229,1
  684. 263874:D_%=&C31:!E_%=
  685. :$(E_%+4)="Error "+
  686. )+": "+Kb$++
  687. 262367,E_%,1,Mb%:
  688. "Closearchive order_res"
  689. 262365,Ob%,&4B534154:
  690. l_(ka%,Pb%):
  691. c`%:c`%=Qb%:
  692. Pb%>0:
  693. :c`%+=1:
  694. ?c`%<32:c`%+=1:Pb%-=1:
  695. la(ka%,$c`%)
  696. la(ka%,a$):w`%!&80=0:$(w`%+&84)=a$+
  697. 262367,w`%+&80,16
  698. ka%,Mb%
  699. ,ka%:=ka%
  700. la(ka%,a$):Wa%!&80=0:$(Wa%+&84)=a$+
  701. 262367,Wa%+&80,16
  702. ka%,Mb%
  703. ,ka%:=ka%
  704. :I%+=1:
  705. ?I%=34
  706. ?I%<32:
  707. ?I%<32:=""
  708. :I%+=1:
  709. ?I%<>32:
  710. ?I%<32:=""
  711. %J%=I%:
  712. :J%+=1:
  713. ?J%<32:?J%=13:=$I%
  714. Sb(m%,i%):
  715. (!(m%+28+(24*i%)))
  716. 1=1:=
  717. Tb (Ub%):
  718. Db% Ub%:E%=Db%+Ub%:
  719. l`%>200
  720. t$="arcfs#order_res:$.Templ_3"
  721. t$="arcfs#order_res:$.Templ_2"
  722. 262361,,t$:
  723. 262363,,z_%,Db%,E%,-1,"info",0
  724. ,,R%:
  725. 262337,,z_%
  726. 262363,,z_%,R%,E%,-1,"savetxt",0
  727. ,,R%:
  728. 262337,,z_%
  729. 262363,,z_%,R%,E%,-1,"saveord",0
  730. ,,R%:
  731. 262337,,z_%
  732. 262363,,z_%,R%,E%,-1,"main",0
  733. 262337,,z_%
  734. 262363,,z_%,R%,E%,-1,"addr",0
  735. ,,R%:
  736. 262337,,z_%
  737. 262363,,z_%,R%,E%,-1,"check",0
  738. ,,R%:
  739. 262337,,z_%
  740. 262363,,z_%,R%,E%,-1,"help",0
  741. ,,R%:
  742. 262337,,z_%
  743. 262363,,z_%,R%,E%,-1,"loading",0
  744. 262337,,z_%
  745. 262362:!E_%=za%:E_%!4=0:
  746. 262350,,E_%:$(E_%!28)=A_$:!E_%=za%:E_%!4=1:
  747. 262350,,E_%:$(E_%!28)=Wb$:!E_%=za%:E_%!4=2:
  748. 262350,,E_%:$(E_%!28)=$Xb%:!E_%=G_%:
  749. 262348,,E_%
  750. A!E_%=0:E_%!4=-(32*Yb%):E_%!8=1208:E_%!12=0:
  751. 262359,G_%,E_%:
  752. :m`%=1:
  753. l`%<300 m`%=1:
  754. 393800,0
  755. d%,n%:r`%=0:q`%=0:o`%=0:p`%=
  756. :n`%=
  757. 131113,33,I%,Wa%,255:J%=Wa%:
  758. ?J%>32:J%+=1:
  759. :?J%=13:
  760. J%>Wa%
  761. $Wa%,2)<>"FS" $Wa%+="FS"
  762. 131129,,$Wa%+"_Drives"
  763. n%;F%:
  764. ,,d%:
  765. $Wa%,3)="IDE" p`%=
  766. :q`%=d%
  767. $Wa%,4)="SCSI" n`%=
  768. :o`%=d%
  769. $Wa%,4)="ADFS" r`%=d%
  770. 8,17,"arcfs#order_res:$.messages"
  771. F%,,,,ia%:
  772. 1)<>1 I%=
  773. la(1,"Messages file not found - unable to continue"):
  774. Qb% ia%+4:cb%=Qb%+ia%:
  775. 8,16,"arcfs#order_res:$.messages",Qb%,0:?cb%=13:db%=0:I%=Qb%:J%=I%:
  776. I%<cb%:
  777. :I%+=1:
  778. ?I%=32:
  779. :I%+=1:
  780. ?I%<>32:
  781. :?J%=?I%:I%+=1:J%+=1:
  782. ?I%<32:?J%=13:I%+=1:J%+=1:db%+=1:
  783. 262336,200,&4B534154,"APDL Order"
  784. l`%,Ob%:
  785. (-50)
  786. l`%=200
  787. (-26)
  788. >xpa%=
  789. -&8000:V_%=
  790. E_%&240,Wa%&100,Mb% 16,z_% v`%,Ka% 160:$Mb%="APDL Order":
  791. $+" During initialisation",
  792. fb% gb%*4,hb$(gb%),``% gb%:
  793. u_% gb%*4:
  794. gb%-1:u_%!(I%*4)=-1:
  795. O`% 32,M`% 32,P`% 32,Ca% gb%*4:
  796. T`% 32,X`% 128,V`% 128,ib% 32:
  797. 32:T`%?I%=0:
  798. 35,"APDL_Order$Dir",E_%,256,0,3
  799. ,,I%:E_%?I%=13:jb$=$E_%:__%=z_%:
  800. 263872
  801. 5,"openarchive "+jb$+".resources order_res":Nb%=
  802. Tb(&460):X_%=
  803. Hb("order",-1):D_%=%110000110001:
  804. v_(0):
  805. lb:mb$=
  806. mb$=""
  807. 263873:
  808. "Closearchive order_res":Nb%=
  809. e_(r_%):
  810. 8,17,"arcfs#order_res:$.setup"
  811. ,,,,ia%:
  812. qb% ia%+4:cb%=qb%+ia%:
  813. 8,16,"arcfs#order_res:$.setup",qb%,0:qb%?(ia%+1)=13:
  814. I%=qb%
  815. ?I%=10? I%=13
  816. :D`%=qb%:O%=0:D%=0:
  817. D`%<cb%:
  818. $D`%,5)
  819. "ADDRE":
  820. rb:z`%=D`%:O%=0
  821. "PURPO":
  822. rb:Xb%=D`%:O%=0
  823. "CURRE":
  824. rb:Ua$=
  825. (?D`%):O%=0
  826. "BUTTO":
  827. rb:O%=0:
  828. 3:O`%!(I%*4)=
  829. ($D`%):
  830. E`:P`%!(I%*4)=
  831. ($D`%):
  832. E`:M`%!(I%*4)=
  833. ($D`%):
  834. "DEFIN":O%=1
  835. "INSTR":
  836. S`:Fb%=D`%:Yb%=0:
  837. S`:Yb%+=1:
  838. ?D`%=&FF:O%=0
  839. "LABEL":sb%=
  840. :O%=0
  841. "VERSI":
  842. rb:k`%=D`%:O%=0
  843. "HDIND":
  844. rb:x`%=
  845. ($D`%):O%=0
  846. "DDIND":
  847. rb:y`%=
  848. ($D`%):O%=0
  849. ?D`%<>124
  850. $D`%<>""
  851. trT`%?D%=(?D`%)
  852. E`:X`%!(D%*4)=
  853. ($D`%):
  854. E`:V`%!(D%*4)=
  855. ($D`%):
  856. E`:ib%?D%=
  857. ($D`%):
  858. T`%?D%=
  859. "S" Ra%=V`%!(D%*4)
  860. T`%?D%=
  861. "R" Sa%=V`%!(D%*4)
  862. z    D%+=1
  863. 12,9,"arcfs#order_res:$",z_%,100,0,&2000,"list*"
  864. ,,,Pb%:ia%=4:p%=z_%:
  865. (-113):I%=
  866. l_(1,11):
  867. ra$="arcfs#order_res:$.":
  868. :a$+=
  869. (?p%):p%+=1:
  870. ?p%<32:p%+=1:
  871. 8,17,a$
  872. ,,,,L%:
  873. na(ia%+L%+16+tb%)=
  874. l_(1,9):
  875. 8,16,a$,ia%+V_%,0:ia%+=L%:
  876. :w`%=(V_%+ia%+8)
  877. 3:!V_%=w`%-V_%:A%=0:B%=V_%:
  878. 8,17,mb$
  879. ,,,,ia%:
  880. na(ia%+16+tb%)=
  881. l_(1,9):
  882. 8,16,mb$,V_%,0:w`%=!V_%+V_%:
  883. ob:p%=w`%:
  884. !p%<>ma% I%=
  885. l_(1,10):
  886. p%+=4:
  887. 10:!E_%=N_%:E_%!4=I%:
  888. 262350,,E_%:$(E_%!28)=$p%:p%=
  889. _`(p%):
  890. :p%=(p%+3)
  891. 3:a%=0:
  892. 10:!E_%=r_%:E_%!4=I%:
  893. 262350,,E_%:E_%!8=(E_%!24)
  894. !p%:E_%!12=0:
  895. 262349,,E_%:p%+=4:
  896. g`(r_%,I%)=
  897. a%=I%-7
  898. v_(a%):!E_%=r_%:E_%!4=13:
  899. 262350,,E_%:E_%!8=(E_%!24)
  900. !p%:E_%!12=0:
  901. 262349,,E_%:p%+=4:P%=0:W%=!u_%:
  902. W%>0:!E_%=W%:
  903. !p%>=0:E_%!4=!p%:E_%!8=1<<21:E_%!12=1<<21:
  904. 262349,,E_%:p%+=4:
  905. :p%+=4:P%+=4:W%=u_%!P%:
  906. Gb%&400:
  907. 3:P%=Gb%:[OPT ub:adr r8,vb:mov r0,r0,lsl#2:ldr pc,[r8,r0]:.wb equd 0:equd 0
  908. '.vb equd xb:equd yb:equd zb:equd _b
  909. .xb ldr r0,[r1]:add r2,r1,r0:add r1,r1,#4:.`b ldrb r0,[r1],#1:cmp r0,#10:moveq r0,#13:streqb r0,[r1,#-1]:cmp r1,r2:blt `b:mov pc,r14
  910. @.yb stmfd r13 !,{r14}:mov r8,r6,lsl#1:add r8,r8,r6:mov r9,#0
  911. _.Ac ldrb r0,[r7]:cmp r0,#64:beq Bc:cmp r0,#124:bne Cc:.Dc ldrb r0,[r7],#1:cmp r0,#32:bge Dc
  912. .Cc mov r2,#0:ldr r0,[r1,#4]:add r0,r0,r6:cmp r0,r8:movgt r0,#0:movgt r2,#40:str r0,[r1,#4]:add r0,r0,r6:str r0,[r1,#12]:ldr r0,[r1,#16]:sub r0,r0,r2:str r0,[r1,#16]:sub r0,r0,#40:str r0,[r1,#8]:str r7,[r1,#24]:mov r2,r7
  913. .Ec ldrb r0,[r7],#1:cmp r0,#32:bge Ec:sub r0,r7,r2:add r0,r0,#1:str r0,[r1,#32]:mov r0,#0:swi "Wimp_CreateIcon":add r9,r9,#1:bal Ac
  914. I.Bc:mov r9,r9,lsr#2:add r9,r9,#1:str r9,wb:mov r0,r7:ldmfd r13 !,{pc}
  915. .zb stmfd r13!,{r14}:str r6,[r1]:swi "Wimp_RedrawWindow":.Fc cmp r0,#0:ldmeqfd r13!,{pc}:ldr r0,[r1,#4]:ldr r2,[r1,#20]:sub r8,r0,r2:add r8,r8,#16:ldr r0,[r1,#16]:ldr r2,[r1,#24]:sub r9,r0,r2
  916. ldr r3,[r1,#40]:sub r3,r9,r3:mov r3,r3,lsr#5:mov r2,r3,lsl#5:sub r9,r9,r2:mov r2,r7:subs r3,r3,#1:bmi Gc:.Hc ldrb r0,[r2],#1:cmp r0,#31:bgt Hc:subs r3,r3,#1:bpl Hc
  917. d.Gc ldr r4,[r1,#40]:ldr r3,[r1,#32]:sub r5,r4,r3:mov r5,r5,lsr#5:add r5,r5,#1:sub r9,r9,#8:bl Ic
  918. .Jc ldrb r0,[r2],#1:cmp r0,#&FF:beq Kc:cmp r0,#
  919. "{":cmpne r0,#
  920. "}":beq Lc:cmp r0,#31:swigt "OS_WriteC":bgt Jc:subs r5,r5,#1:bmi Kc:sub r9,r9,#32:bl Ic:bal Jc:.Kc swi "Wimp_GetRectangle":bal Fc
  921. 3I.Lc cmp r0,#
  922. "{":moveq r0,#11:movne r0,#7:swi "Wimp_SetColour":bal Jc
  923. .Ic swi 256+25:swi 256+4:mov r0,r8:swi "OS_WriteC":mov r0,r0,lsr#8:swi "OS_WriteC":mov r0,r9:swi "OS_WriteC":mov r0,r0,lsr#8:swi "OS_WriteC":movs pc,r14
  924. ._b stmfd r13!,{r14}:mov r11,#0:mov r10,r6:mov r9,r5:.Mc ldr r0,[r1,#16]:sub r0,r0,#40:str r0,[r1,#16]:sub r0,r0,#40:str r0,[r1,#8]
  925. Oe.Nc ldrb r0,[r7]:cmp r0,#64:beq Oc:cmp r0,#36:beq Qc:cmp r0,#37:beq z_:cmp r0,#124:bleq Rc:beq Nc
  926. str r7,[r1,#24]:mov r6,r7:bl Rc:sub r6,r7,r6:add r6,r6,#1:str r6,[r1,#32]:ldrb r0,[r7]:cmp r0,#48:blt Sc:cmp r0,#57:bgt Sc:.Tc ldrb r0,[r7,#1]!:cmp r0,#32:beq Tc:.Uc ldrb r0,[r7,#1]!:cmp r0,#32:bne Uc:.Vc ldrb r0,[r7,#1]!
  927. mgcmp r0,#32:beq Vc:stmfd r13!,{r1}:mov r0,#10:mov r1,r7:swi "OS_ReadUnsigned":ldmfd r13!,{r1}:bal Wc
  928. ud.Sc and r0,r0,#&DF:mov r3,#0:.Xc ldrb r2,[r10,r3]:cmp r2,r0:addne r3,r3,#1:bne Xc:ldr r2,[r9,r3]
  929. }q.Wc mov r2,r2,lsl#24:ldr r0,Yc:orr r0,r0,r2:str r0,[r1,#20]:swi "Wimp_CreateIcon":add r11,r11,#1:bl Rc:bal Mc
  930. .Qc ldrb r0,[r7,#1]!:cmp r0,#32:beq Qc:str r7,[r1,#24]:mov r6,r7:bl Rc:sub r6,r7,r6:add r6,r6,#1:str r6,[r1,#32]:ldr r0,Zc:str r0,[r1,#20]:swi "Wimp_CreateIcon":add r11,r11,#1:bal Mc
  931. .z_ ldrb r0,[r7,#1]!:cmp r0,#32:beq z_:stmfd r13!,{r1}:mov r0,#10:mov r1,r7:swi "OS_ReadUnsigned":mov r7,r1:ldmfd r13!,{r1}:.ac ldrb r0,[r7,#1]!:cmp r0,#32:beq ac:str r7,[r1,#24]:mov r6,r7:bl Rc:sub r6,r7,r6:add r6,r6,#1
  932. wstr r6,[r1,#32]:mov r2,r2,lsl#24:ldr r0,bc:orr r0,r0,r2:str r0,[r1,#20]:swi "Wimp_CreateIcon":add r11,r11,#1:bal Mc
  933. 5.Rc ldrb r0,[r7],#1:cmp r0,#31:bgt Rc:movs pc,r14
  934. ,.Oc:str r11,wb:mov r0,r7:ldmfd r13!,{pc}
  935. 9.Yc equd&00003139:.Zc equd&C7000139:.bc equd&10000139
  936. cc(q_%):
  937. dc%,ec%,fc%,gc%,hc%:
  938. 53,-1,4
  939. ,,dc%:
  940. 53,-1,11
  941. ,,ec%:ec%=ec%<<dc%:
  942. 53,-1,5
  943. ,,dc%:
  944. 53,-1,12
  945. ,,fc%:fc%=fc%<<dc%:!E_%=q_%:
  946. 262347,,E_%:hc%=E_%!12-E_%!4:gc%=E_%!16-E_%!8:ec%=(ec%-hc%)
  947. 2:fc%=(fc%-gc%)
  948. 2:E_%!4=ec%
  949. ;E_%!12=ec%+hc%:E_%!8=fc%:E_%!16=fc%+gc%:
  950. 262341,,E_%:
  951. cc(Vb%):
  952. 262343,0,E_%:
  953. :`_%=0:D`%=V_%+4:w`%=!V_%+V_%:
  954. ?D`%<>42:
  955. :Ba%=352:
  956. (-113):I%=
  957. l_(1,11):
  958. E`:``%?`_%=0:u_%!(`_%*4)=
  959. ic(1):
  960. `_%<A`% A`%=`_%
  961. jc(u_%!(`_%*4))
  962. E`:``%?`_%=1:u_%!(`_%*4)=
  963. ic(0):K_%=
  964. kc(u_%!(`_%*4))
  965. :``%?`_%=0:u_%!(`_%*4)=
  966. ic(0):K_%=
  967. kc(u_%!(`_%*4))
  968. :!E_%=0:E_%!4=-((K_%*40)+20):E_%!8=hc%:E_%!12=0:
  969. 262359,u_%!(`_%*4),E_%:`_%+=1:
  970. :D`%+=1:
  971. ?D`%=42
  972. D`%>=w`%:
  973. D`%>=w`%:!E_%=r_%:E_%!4=t_%-1:
  974. 262340,,E_%:!E_%=r_%:E_%!4=t_%:
  975. 262350,,E_%:t%=E_%!20:$(E_%!28)=lc$
  976. !E_%=r_%:E_%!4=0:
  977. 262350,,E_%:E_%!20=t%+16:E_%!12=E_%!20-((`_%*56)+28):E_%!4=r_%:
  978. 262338,t_%-1,E_%+4:!E_%=0:E_%!4=t%-(20+(`_%*56)):E_%!8=426:E_%!12=0:
  979. 262359,r_%,E_%:Ba%=(Ba%
  980. 16)+6:A`%=A`%*4:
  981. m`%>1
  982. k!E_%=r_%:E_%!4=13:E_%!8=1<<21:E_%!12=1<<21:
  983. 262349,,E_%:
  984. Za(Vb%,3,"HD discs selected"):
  985. :!E_%=Vb%:
  986. 262342,,E_%:
  987. ic(b%):
  988. 263876,((D`%-V_%)*100)
  989. ia%:K_%=0:hc%=
  990. ($D`%):mc%=hc%
  991. E`:nc%=D`%:
  992. `_%=0
  993. lc$=$nc%
  994. Ca%!(`_%*4)=nc%:*fx19
  995. Za(Vb%,3,$nc%):!E_%=r_%:E_%!4=t_%:
  996. 262350,,E_%:
  997. `_%=0
  998. -E_%!28=nc%:E_%!8=0:E_%!12=0:
  999. 262349,,E_%
  1000. :E_%!4=r_%:E_%!12=E_%!12-(56*`_%):E_%!20=E_%!20-(56*`_%):E_%!28=nc%:
  1001. 262338,t_%+`_%,E_%+4
  1002. ?D`%=124
  1003. J%:E_%!(I%*4)=J%:
  1004. :!E_%+=(32*`_%):E_%!4-=(16*`_%):E_%!8=!E_%+hc%:E_%!12-=(36*`_%):E_%!72=nc%:E_%!80=
  1005. ($nc%)+1:E_%!68=hc%:E_%!28=E_%!28
  1006. b%<<30:
  1007. b%>0 E_%?68=220:E_%?69=0
  1008. hc%>Ba%
  1009. Ba%=hc%
  1010. 262337,,E_%
  1011. w%:=w%
  1012.  492,&70,792,984,0,0,-1,&BF000012,&0070207,&C0103
  1013.  0,&FFFFFCAC,&12C,0,&F700013D,0,1,&12C,&11C0A,-1,0,0,0
  1014. kc(w%):!E_%=w%:E_%!4=0:E_%!16=40:E_%!12=hc%:E_%!28=-1:A%=3:B%=E_%:F%=ib%:G%=T`%:H%=D`%:D`%=
  1015. Gb%:=Gb%!12
  1016. jc(w%):!E_%=w%:E_%!4=mc%*3:E_%!16=40:E_%!20=&00003139
  1017. 5<<24:E_%!28=-1:A%=1:B%=E_%:G%=mc%:H%=D`%:D`%=
  1018. yb:=Gb%!12
  1019. ?D`%>31:D`%+=1:
  1020. :D`%+=1:
  1021. ?D`%=32:D`%+=1:
  1022. ?D`%<>32:D`%+=1:
  1023. ?D`%<>32:D`%+=1:
  1024. ?D`%=32
  1025. ?D`%=9:D`%+=1:
  1026. ?D`%>32:D`%+=1:
  1027. ?D`%<33:D`%+=1:
  1028. eb:gb%=32:t_%=15:Z`%=0:h_%=0:W`%=0:a`%=0:Y`%=0:F`%=0:G`%=0:A`%=255:A_$="APDL Order   Ver "+
  1029. (A_%/100):ma%=300:k`%=0:Nb%=
  1030. :Wb$="
  1031.  David Holden 1994":tb%=&600:v`%=&8000:R_%=
  1032. :rc%=
  1033. :sb%=
  1034. :sc%=5:Qa%=8:y`%=150:x`%=180
  1035. E;i`%=0:j_%=0:j`%=0:k_%=0:Va%=5:g_%=
  1036. :I`%=7:J`%=8:K`%=9:
  1037.